home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / mod / AddOn / imageengineer.mod < prev    next >
Encoding:
Text File  |  2000-01-26  |  1.3 KB  |  63 lines
  1. /* $VER: HTMLEXT Modul: imageengineer.mod V 0.1.1 by Juan Manuel Wehrli 1999
  2.  */
  3.  
  4.  
  5. if ~show("L",rexxreqtools.library) then do
  6.     call addlib("rexxreqtools.library",0,-30,0)
  7. end
  8. if ~show("L",rexxtricks.library) then do
  9.     call addlib("rexxtricks.library",0,-30,0)
  10. end
  11.  
  12. NL = '0a'x
  13.  
  14. PARSE ARG befehl file
  15. OPTIONS RESULTS
  16.  
  17. ADDRESS COMMAND
  18. if befehl = OPENNEW then do
  19.     if ~show('P','IMAGEENGINEER') then do
  20.         'c:WBrun <>NIL: IE:IE'
  21.         'sys:rexxc/WaitForPort IMAGEENGINEER'
  22.     end
  23.     file = STRIP(file)
  24.     ADDRESS IMAGEENGINEER
  25.     IE_TO_FRONT
  26.     OPEN file
  27. end
  28.  
  29. if befehl = OPENNEWS then do
  30.     if ~show('P','IMAGEENGINEER') then do
  31.         'c:WBrun <>NIL: IE:IE'
  32.         'sys:rexxc/WaitForPort IMAGEENGINEER'
  33.     end
  34.     ADDRESS IMAGEENGINEER
  35.     IE_TO_FRONT
  36.     file = STRIP(file)
  37.     OPEN file
  38. end
  39. /*
  40. if befehl = MKHTMLPIC then do
  41.     if ~show('P','IMAGEENGINEER') then do
  42.         'c:WBrun <>NIL: IE:IE'
  43.         'sys:rexxc/WaitForPort IMAGEENGINEER'
  44.     end
  45.     ADDRESS IMAGEENGINEER
  46.     IE_TO_FRONT
  47.     OPEN "t:htmlext/tmp.image.pic"
  48.     aktproj = RESULT
  49.     project_info aktproj WIDTH
  50.     NewWidth=RESULT/10
  51.     project_info aktproj HEIGHT
  52.     NewHeight=RESULT/10
  53.     SCALE aktproj NewWidth NewHeight BEST
  54.     aktproj2 = RESULT
  55.     'SAVE_DATA' aktproj2 '"t:htmlext/tmp.image"' '"ILBM CmpByteRun1"'
  56.     CLOSE aktproj
  57.     CLOSE aktproj2
  58.     ADDRESS COMMAND 'delete t:htmlext/tmp.image.pic >NIL:'
  59.     exit
  60. end
  61. */
  62.  
  63.